home *** CD-ROM | disk | FTP | other *** search
/ Mac OS on the PowerPC Mic…rocessor - In Store Demo / Mac OS on the PowerPC Microprocessor.iso / MacOS / MacOS.dxr / 00068.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  518 b   |  18 lines
  1. global gFieldTop, gchaptertextheight, glessonnumber, theSparkle, gplaystatus, gAfterClick, gQuick
  2.  
  3. on mouseDown
  4.   set mouseloc to (getAt(clickLoc(), 2) - gFieldTop) / gchaptertextheight
  5.   if (mouseloc >= 1) and (mouseloc <= glessonnumber) then
  6.     pausethemoov()
  7.     sparkle(theSparkle, clickLoc())
  8.     if gQuick then
  9.       set gplaystatus to #play
  10.       donewchapter(mouseloc, 1, #play)
  11.     else
  12.       set gplaystatus to #pause
  13.       donewchapter(mouseloc, 1, #pause)
  14.     end if
  15.     set gAfterClick to 1
  16.   end if
  17. end
  18.